Datos y análisis para práctica de Valeria-Novas-Perez

0.1 Carga de paquetes

Son muchos los paquetes empleados en estos análisis. Puedes consultar en el ChatGPT qué hace cada uno. Considera un aspecto también importante: algunas funciones escritas por mí se cargan con source_url y source; dentro de algunas de dichas funciones, también se cargan paquetes adicionales.

library(vegan)
library(sf)
library(tidyverse)
library(tmap)
library(kableExtra)
library(broom)
library(cluster)
library(gclus)
library(pvclust)
library(foreach)
library(leaps)
library(caret)
library(RColorBrewer)
library(indicspecies)
library(dendextend)
library(adespatial)
library(SpadeR)
library(iNEXT)
library(GGally)
library(vegetarian)
r <- 'R/'
gh_content <- 'https://raw.githubusercontent.com/'
gh_zonal_stats <- paste0(gh_content,
                         'geofis/zonal-statistics/0b2e95aaee87bf326cf132d28f4bd15220bb4ec7/out/')
repo_analisis <- 'biogeografia-master/scripts-de-analisis-BCI/master'
repo_sem202202 <- 'biogeografia-202202/material-de-apoyo/master/practicas/'
devtools::source_url(paste0(gh_content, repo_analisis, '/biodata/funciones.R'))
devtools::source_url(paste0(gh_content, repo_sem202202, 'train.R'))
devtools::source_url(paste0(gh_content, repo_sem202202, 'funciones.R'))
fuentes_practica <- 'fuentes/practica-04/'
source(paste0(r, 'funciones.R'))
umbral_alfa <- 0.05

1 Análisis exploratorio de datos (AED)

1.1 Cargar la matriz de comunidad

mc <- read.csv(paste0(fuentes_practica, 'matriz-comunidad-', params$estudiante, '.csv'))[,-1]
mc %>% estilo_kable(
  titulo = 'Matriz de comunidad',
  nombres_filas = T, alinear = 'r')

TABLA 1.1: Matriz de comunidad

	sp01	sp02	sp03	sp04	sp05	sp06	sp07	sp08	sp09	sp10	sp11	sp12
1	1	1	1	1	1	1	0	1	1	1	0	0
2	0	1	1	0	0	0	0	1	1	0	1	1
3	1	1	1	1	0	1	1	1	1	1	0	0
4	1	1	0	0	1	1	0	0	0	0	0	1
5	1	0	1	1	0	0	0	1	0	1	1	1
6	1	1	1	0	1	1	1	0	1	1	1	1
7	1	0	0	0	0	1	0	1	1	1	0	0
8	0	0	0	0	0	1	1	1	0	1	1	1
9	0	1	1	1	1	0	1	1	1	1	1	1
10	0	1	1	1	1	0	1	1	0	1	0	1
11	0	0	0	1	0	0	0	0	1	0	0	0
12	1	1	0	0	0	0	1	1	1	0	1	1
13	0	0	0	0	0	1	1	1	0	1	1	0
14	1	1	0	1	1	1	1	1	1	1	1	1
15	1	1	1	1	1	1	0	1	1	0	0	1

data.frame(Especies = sort(names(mc))) %>%
  estilo_kable(titulo = 'Lista de especies', cubre_anchura = F, alinear = 'c') %>% 
  column_spec(column = 1, width = "15em")

TABLA 1.2: Lista de especies

Especies
sp01
sp02
sp03
sp04
sp05
sp06
sp07
sp08
sp09
sp10
sp11
sp12

data.frame(`Número de sitios donde fue reportada la especie` = sort(colSums(mc), decreasing = T),
           check.names = F) %>%
  rownames_to_column('Especie') %>% 
  estilo_kable(
    titulo = 'Número de sitios en los que está presente cada especie (orden descendente por número de sitios)', 
    nombres_filas = F, alinear = 'cr')

TABLA 1.3: Número de sitios en los que está presente cada especie (orden descendente por número de sitios)

Especie	Número de sitios donde fue reportada la especie
sp08	12
sp02	10
sp09	10
sp10	10
sp12	10
sp01	9
sp06	9
sp03	8
sp04	8
sp07	8
sp11	8
sp05	7

data.frame(`Riqueza por sitios` = rowSums(mc),
           check.names = F) %>%  rownames_to_column('Sitio') %>% 
  arrange(desc(`Riqueza por sitios`)) %>% 
  estilo_kable(
    titulo = 'Riqueza por sitios (orden descendente por riqueza)', 
    nombres_filas = F, alinear = 'cr')

TABLA 1.4: Riqueza por sitios (orden descendente por riqueza)

Sitio	Riqueza por sitios
14	11
6	10
9	10
1	9
3	9
15	9
10	8
5	7
12	7
2	6
8	6
4	5
7	5
13	5
11	2

La matriz de comunidad analizada se compone de 15 sitios y 12 especies, donde el/los sitio/s más ricos es/son 14. La/s especie/s más común/es es/son sp08 y la/s más rara/s es/son sp05. El siguiente gráfico de mosaicos muestra la distribución de las especies según sitios.

grafico_mosaico <- crear_grafico_mosaico_de_mc(mc, tam_rotulo = 12) + xlab('Sitios') + ylab('Especie')
grafico_mosaico

FIGURA 1.1: Distribución de las especies según sitios

1.2 Transformar la matriz de comunidad

Este paso es importante, lo explico aquí

mc_t <- decostand(mc, 'hellinger') #Hellinger, funciona con datos de presencia/ausencia
mc_t %>% estilo_kable(titulo = 'Matriz de comunidad transformada',
                      nombres_filas = T, alinear = 'r')

TABLA 1.5: Matriz de comunidad transformada

	sp01	sp02	sp03	sp04	sp05	sp06	sp07	sp08	sp09	sp10	sp11	sp12
1	0.33	0.33	0.33	0.33	0.33	0.33	0.00	0.33	0.33	0.33	0.00	0.00
2	0.00	0.41	0.41	0.00	0.00	0.00	0.00	0.41	0.41	0.00	0.41	0.41
3	0.33	0.33	0.33	0.33	0.00	0.33	0.33	0.33	0.33	0.33	0.00	0.00
4	0.45	0.45	0.00	0.00	0.45	0.45	0.00	0.00	0.00	0.00	0.00	0.45
5	0.38	0.00	0.38	0.38	0.00	0.00	0.00	0.38	0.00	0.38	0.38	0.38
6	0.32	0.32	0.32	0.00	0.32	0.32	0.32	0.00	0.32	0.32	0.32	0.32
7	0.45	0.00	0.00	0.00	0.00	0.45	0.00	0.45	0.45	0.45	0.00	0.00
8	0.00	0.00	0.00	0.00	0.00	0.41	0.41	0.41	0.00	0.41	0.41	0.41
9	0.00	0.32	0.32	0.32	0.32	0.00	0.32	0.32	0.32	0.32	0.32	0.32
10	0.00	0.35	0.35	0.35	0.35	0.00	0.35	0.35	0.00	0.35	0.00	0.35
11	0.00	0.00	0.00	0.71	0.00	0.00	0.00	0.00	0.71	0.00	0.00	0.00
12	0.38	0.38	0.00	0.00	0.00	0.00	0.38	0.38	0.38	0.00	0.38	0.38
13	0.00	0.00	0.00	0.00	0.00	0.45	0.45	0.45	0.00	0.45	0.45	0.00
14	0.30	0.30	0.00	0.30	0.30	0.30	0.30	0.30	0.30	0.30	0.30	0.30
15	0.33	0.33	0.33	0.33	0.33	0.33	0.00	0.33	0.33	0.00	0.00	0.33

# Otras transformaciones posibles con datos de presencia/ausencia
# mc_t <- decostand(mc, 'normalize') #Chord
# mc_t <- decostand(log1p(mc), 'normalize') #Chord
# mc_t <- decostand(mc, 'chi.square') #Chi-square

1.3 Cargar la matriz ambiental

env <- read_csv(paste0(fuentes_practica, 'matriz-ambiental-', params$estudiante, '.csv'))[, -1]
env %>% estilo_kable(titulo = 'Matriz ambiental', nombres_filas = T, alinear = 'r')

TABLA 1.6: Matriz ambiental

	var1	var2	var3	var4
1	0.30	0.08	0.18	0.19
2	0.47	0.42	0.26	0.15
3	0.99	0.17	0.81	0.41
4	0.52	0.62	0.16	0.29
5	0.84	0.37	0.98	0.26
6	0.72	0.22	0.04	0.71
7	0.62	0.36	0.83	0.69
8	0.74	0.53	0.04	0.60
9	0.42	0.80	0.05	0.38
10	0.37	0.77	0.51	0.18
11	0.97	0.92	0.28	0.64
12	0.61	0.47	0.43	0.80
13	0.47	1.00	0.50	0.49
14	0.86	0.21	0.01	0.06
15	0.44	0.21	0.25	0.15

La matriz ambiental se compone de 4 variables de tipo numérico, conteniendo el valor de cada variable para cada uno de los 15 sitios. La siguiente tabla y el gráfico muestran un resumen de los estadísticos básicos de la matriz ambiental.

estad_basicos <- env %>%
  pivot_longer(everything(), names_to = "Variable", values_to = "Valor") %>%
  group_by(Variable) %>%
  summarise(
    Media = mean(Valor),
    Mediana = median(Valor),
    `Desv. Estándar` = sd(Valor),
    Varianza = var(Valor),
    `Error Estándar` = sd(Valor) / sqrt(length(Valor)))
estad_basicos %>% estilo_kable(titulo = 'Matriz ambiental', nombres_filas = F, alinear = 'crrrr')

TABLA 1.7: Matriz ambiental

Variable	Media	Mediana	Desv. Estándar	Varianza	Error Estándar
var1	0.62	0.61	0.22	0.05	0.06
var2	0.48	0.42	0.29	0.08	0.07
var3	0.36	0.26	0.31	0.10	0.08
var4	0.40	0.38	0.24	0.06	0.06

env %>%
  pivot_longer(everything(), names_to = 'Variable', values_to = 'Valor') %>% 
  group_by(Variable) %>% 
  ggplot() +
  aes(x = Variable, y = Valor, color = Variable, fill = Variable) + 
  # geom_boxplot(lwd = 0.2) + 
  geom_violin(alpha = 0.2, width = 0.8, color = "transparent") +
  geom_jitter(alpha = 0.6, size = 2, height = 0, width = 0.1) +
  geom_boxplot(alpha = 0, width = 0.3, color = "#808080") +
        scale_fill_brewer(palette = 'Set1') +
        theme_bw() +
        theme(legend.position="none")

Las medias calculadas de las variables var1, var2, var3 y var4 son, respectivamente, las siguientes: 0.62, 0.48, 0.36 y 0.4. La variable que con la media más alta fue var1 (0.62), y la más baja la obtuvo la variable var3 (0.36). Por otra parte, la mitad de los sitios midieron menos de 0.61, 0.42, 0.26 y 0.38, para cada una de las variables var1, var2, var3 y var4, respectivamente. Finlamente, la variable con mayor dispersión fue var3 y la de menor dispersión fue var1.

Una verificación importante que debe realizarse es si las matrices de comunidad y ambiental tienen el mismo numero de filas y si las filas se encuentran en el mismo orden (e.g. consistencia entre matrices, donde cada fila en la matriz de comunidad se refiere al mismo sitio en la ambiental, y viceversa). Esto se puede comprobar por medio de los nombres de columnas y, en este caso, tras realizar la correspondiente comprobación, esta condición se cumple, por lo que podemos continuar adelante con los siguientes análisis

A continuación, realizaré análisis de agrupamiento, ordenación y diversidad, basándome en las indicaciones de Borcard, Gillet, y Legendre (2018), reaprovechando el código contenido en Martínez-Batlle (2020).

2 Análisis de agrupamiento

A continuación, el análisis de agrupamiento propiamente. La parte más importante es generar un árbol, a partir de una matriz de distancias, que haga sentido desde el punto de vista de la comunidad y la distribución de las especies. Primero cargaré paquetes específicos de esta técnica y generaré la matriz de distancias.

mc_d <- vegdist(mc_t, "euc")

2.1 Generación de árboles

A continuación, generaré árboles usando distintos métodos. Explico detalladamente estas técnicas en el repo, y en los vídeos (13 a 16) de la lista mencionada arriba “Ecología Numérica con R” de mi canal.

lista_cl <- list(
        cl_single = hclust(mc_d, method = 'single'),
        cl_complete = hclust(mc_d, method = 'complete'),
        cl_upgma = hclust(mc_d, method = 'average'),
        cl_ward = hclust(mc_d, method = 'ward.D2')
)
par(mfrow = c(2,2))
invisible(map(names(lista_cl), function(x) plot(lista_cl[[x]], main = paste0(x, '\n(árbol de evaluación)'), hang = -1)))

par(mfrow = c(1,1))

A continuación, calcularé la distancia y la correlación cofenéticas; esta última, la correlación cofenética,se utiliza como criterio flexible para elegir el método de agrupamiento idóneo, pero no debe usarse de manera estricta. Se supone que el método con la mayor correlación cofenética explica mejor el agrupamiento de la comunidad. Si quieres comprender mejor esta técnica, consulta el vídeo que te referí en el párrafo anterior, así como los libros de referencia. Normalmente, el método UPGMA obtiene la mayor correlación cofenética, pero esto se debe a que su procedimiento de obtención maximiza precisamente dicha métrica. No es recomendable conservar un único método de agrupamiento, normalmente es bueno usar al menos dos. Ward es muchas veces recomendado como método de contraste, por basarse en procedimientos de cálculo muy distintos a los de UPGMA.

map_df(lista_cl, function(x) {
        coph_d <- cophenetic(x)
        corr <- cor(mc_d, coph_d)
        return(corr)
}) %>% t() %>% as.data.frame() %>%
  rownames_to_column %>%
  mutate(rowname = gsub('cl_', '', rowname)) %>% 
  setNames(c('Método de agrupamiento', 'Correlación cofenética')) %>%
  estilo_kable()

TABLA 2.1:

Método de agrupamiento	Correlación cofenética
single	0.76
complete	0.80
upgma	0.84
ward	0.65

2.2 Anchura de siluetas

Ahora, calcularé las anchuras de silueta, una métrica que ayuda a determinar en cuántos grupos se organiza la comunidad; las anchuras de silueta no deben usarse como método estricto, y sólo debe usarse de forma flexible para informarnos sobre el número máximo de grupos posibles. Considera las siguientes reglas:

• El número ideal es 3 grupos, de 4 a 5 grupos es aceptable, 6 o más grupos se considera difícil de interpretar, o es un resultado poco útil; 1 grupo es un resultado sin sentido.
• Si obtienes distintos grupos, pero uno o varios están compuestos por un único sitio, observa qué ocurre en ese sitio, pues es probable que contenga especie raras sólo presentes en él. En este caso, es recomendable explorar dos alternativas para evitar el grupo formado por un único sitio: ver qué ocurre usando distintos métodos o elegir cortar el árbol en un número de grupos menor.

2.2.1 Anchuras de siluetas para método UPGMA

# UPGMA
anch_sil_upgma <- calcular_anchuras_siluetas(
        mc_orig = mc, 
        distancias = mc_d, 
        cluster = lista_cl$cl_upgma)
u_dend_reord <- reorder.hclust(lista_cl$cl_upgma, mc_d)
plot(u_dend_reord, hang = -1, main = 'Método UPGMA\n(árbol de evaluación)')

rect.hclust(
        tree = u_dend_reord,
        k = anch_sil_upgma$n_grupos_optimo)

resultado_evaluacion_upgma <- evaluar_arbol(u_dend_reord, anch_sil_upgma$n_grupos_optimo)

Tras cortar el árbol, la evaluación practicada concluyó lo siguiente: “Árbol no recomendado para usarse por producir grupos compuestos por dos elementos o menos”

2.2.2 Anchuras de siluetas para método Ward

# Ward
anch_sil_ward <- calcular_anchuras_siluetas(
        mc_orig = mc, 
        distancias = mc_d, 
        cluster = lista_cl$cl_ward)
w_dend_reord <- reorder.hclust(lista_cl$cl_ward, mc_d)
plot(w_dend_reord, hang = -1, main = 'Método Ward\n(árbol de evaluación)')

rect.hclust(
        tree = w_dend_reord,
        k = anch_sil_ward$n_grupos_optimo)

resultado_evaluacion_ward <- evaluar_arbol(w_dend_reord, anch_sil_ward$n_grupos_optimo)

Tras cortar el árbol, la evaluación practicada concluyó lo siguiente: “Árbol no recomendado para usarse por producir grupos compuestos por dos elementos o menos”.

2.3 Remuestreo por bootstrap multiescalar

Una forma alterna de evaluar árboles consiste en usar el remuestreo por bootstrap multiescalar. No me interesa que profundices en ella, sólo presentártela como técnica probabilística para evaluar árboles generados por métodos determinísticos. La técnica es documentada en Borcard, Gillet, y Legendre (2018), de la cual puedes un resumen en este cuaderno y en este vídeo (minuto 51:33). El remuestreo por bootstrap multiescalar valida la robustez de los análisis de agrupamiento tomando múltiples muestras aleatorias de los datos en diferentes tamaños. Este proceso determina qué grupos son consistentemente identificados como clústeres, generando valores de probabilidad aproximadamente insesgados (AU) que son considerados más fiables que las probabilidades de bootstrap tradicionales (BP). Esta técnica ayuda a identificar y confirmar patrones robustos en los datos.

Lo aplicaré primero al árbol generado por el método UPGMA.

# UPGMA
# if(interactive()) dev.new()
cl_pvclust_upgma <-
        pvclust(t(mc_t),
                method.hclust = "average",
                method.dist = "euc",
                iseed = 99, # Resultado reproducible
                parallel = TRUE, quiet = TRUE)
# Añadir los valores de p
plot(cl_pvclust_upgma, hang = -1, main = 'Método UPGMA bootstrap\n(árbol de evaluación)')

# Añadir rectángulos a los grupos significativos
lines(cl_pvclust_upgma)
pvrect(cl_pvclust_upgma, alpha = 0.90, border = 4)

Lo aplicaré también al árbol generado por el método Ward.

# Ward
# if(interactive()) dev.new()
cl_pvclust_ward <-
        pvclust(t(mc_t),
                method.hclust = "ward.D2",
                method.dist = "euc",
                iseed = 99, # Resultado reproducible
                parallel = TRUE, quiet = TRUE)
# Añadir los valores de p
plot(cl_pvclust_ward, hang = -1, main = 'Método Ward bootstrap\n(árbol de evaluación)')

# Añadir rectángulos a los grupos significativos
lines(cl_pvclust_ward)
pvrect(cl_pvclust_ward, alpha = 0.91, border = 4)

2.4 Conclusión sobre selección de método de agrupamiento y número de grupos

Basado en lo anterior, elegiré un método de agrupamiento y un número de grupos, y lo exportaré a un archivo que posteriormente podré reaprovechar. La lógica empleada para elegir método de agrupamiento y número de grupos, es la siguiente: si el árbol generado por el método UPGMA no es recomendable (por tener grupos formados 2 o menos elementos), pero Ward sí, se usar el árbol generado por el método Ward y el número de grupos idóneo sugerido por la anchura de silueta. Si UPGMA es recomendable pero Ward no lo es, se usar el árbol generado por el método UPGMA, cortado en el número de grupos sugerido por la anchura de siluetas. Si ambos métodos son recomendables y sugieren el mismo número de grupos, se opta por el arbol generado por el método Ward. Si ambos métodos son recomendables pero sugieren un número diferente de grupos, se elige el método que sugiere menos grupos. Finalmente, si ambos métodos, UPGMA y Ward, resultan ser poco idóneos porque generan grupos muy pequeños (dos o menos elementos), se opta, como último recurso, por elegir el árbol generado por el método Ward cortado en 3 grupos.

grupos_seleccionados <- seleccionar_y_cortar_arbol(
  arbol_upgma = lista_cl$cl_upgma, arbol_ward = lista_cl$cl_ward,
  resultado_evaluacion_upgma = resultado_evaluacion_upgma,
  resultado_evaluacion_ward = resultado_evaluacion_ward)
saveRDS(grupos_seleccionados$resultado,
        paste0(fuentes_practica, 'grupos_seleccionados-', params$estudiante,'.RDS'))

Los árboles generados por los métodos UPGMA y Ward producen grupos compuestos por dos elementos o menos. Empleamos el agrupamiento Ward cortado en 3 grupos como último recurso. El árbol resultante se muestra a continuación:

# Convierte el hclust en dendrograma
dend <- as.dendrogram(grupos_seleccionados$arbol)

# Corta y colorea el dendrograma en k grupos
dend_colored <- color_branches(dend, k=grupos_seleccionados$k)

# Etiqueta los grupos
labels_colors <- labels_colors(dend_colored)
labels(dend_colored) <- paste0(labels(dend_colored), " (",
                               grupos_seleccionados$resultado[grupos_seleccionados$arbol$order],
                               ")")

# Grafica el dendrograma
# par(mar = c(3, 4, 4, 2) + 0.1) # Ajusta los márgenes
plot(
  dend_colored,
  main=paste(
    'Árbol seleccionado\nMétodo',
    grupos_seleccionados$metodo,
    'cortado en',
    grupos_seleccionados$k, 'grupos'),
  xlab = 'Sitios (grupo de pertenencia)')

2.5 Grupos (clústers), variables ambientales

Apliquemos el análisis de agrupamiento a la matriz ambiental. La clave en este punto es que, si la matriz ambiental presenta patrones parecidos a los de la matriz de comunidad, significa que el agrupamiento utilizado hace sentido entre ambos conjuntos de datos (comunidad y hábitat) de forma consistente. Si ambos conjuntos de datos son consistentes, significa que existe algún grado de asociación, aunque sea sólo una mera asociación estadística.

Agrupar los sitios de muestreo de la matriz ambiental según los grupos previamente definidos.

env_grupos <- env %>%
    rownames_to_column('sitios_de_muestreo') %>% 
    mutate(grupos = as.factor(grupos_seleccionados$resultado)) %>%
    pivot_longer(-c(grupos, sitios_de_muestreo), names_to = "variable", values_to = "valor")

Evaluar efectos entre los grupos (“diferencias significativas”). Se utilizan las pruebas estadísticas ANOVA (evalúa homongeneidad de medias) y Kruskal-Wallis (evalúa homogeneidad de medianas). Las tablas están ordenadas en orden ascendente por la columna p_valor_a, que son los p-valores de la prueba ANOVA.

env_grupos_ak <- env_grupos %>%
  group_by(variable) %>%
  summarise(
    p_valor_a = tryCatch(oneway.test(valor ~ grupos)$p.value, error = function(e) NA),
    p_valor_k = tryCatch(kruskal.test(valor ~ grupos)$p.value, error = function(e) NA)
    ) %>%
  arrange(p_valor_a)
env_grupos_ak %>% estilo_kable(alinear = 'crr')

TABLA 2.2:

variable	p_valor_a	p_valor_k
var1		0.38
var2		0.09
var3		0.93
var4		0.41

Explora tus resultados.

env_grupos %>% 
        group_by(variable) %>% 
        ggplot() + aes(x = grupos, y = valor, group = grupos, fill = grupos) + 
        geom_boxplot(lwd = 0.2) + 
        scale_fill_brewer(palette = 'Set1') +
        theme_bw() +
        theme(legend.position="none") +
        facet_wrap(~ variable, scales = 'free_y', ncol = 8)

El objetivo de adjuntarle, a la matriz ambiental, el vector de agrupamiento generado a partir de datos de comunidad, consiste en caracterizar ambientalmente los hábitats de los subgrupos diferenciados según su composición. Observa los resultados de las pruebas estadísticas, de los diagramas de caja, y explora tus resultados:

2.6 Especies con preferencia/fidelidad con grupos (clústers)

Análisis de preferencia/fidelidad de especies con grupos (clusters), mediante el coeficiente de correlación biserial puntual (phi).

set.seed(9999)
phi <- multipatt(
  mc,
  grupos_seleccionados$resultado,
  func = "r.g",
  max.order = 1,
  control = how(nperm = 999))
summary(phi)

 Multilevel pattern analysis
 ---------------------------

 Association function: r.g
 Significance level (alpha): 0.05

 Total number of species: 12
 Selected number of species: 2 
 Number of species associated to 1 group: 2 
 Number of species associated to 2 groups: 0 

 List of species associated to each combination: 

 Group A  #sps.  2 
      stat p.value  
sp02 0.877   0.025 *
sp01 0.816   0.046 *
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 

Tabla de especies que presentaron asociación con grupos por medio de phi, usando umbral de significancia (umbral_alfa).

tabla_phi_sign <- phi$sign
tabla_phi_sign_alfa <- tabla_phi_sign[phi$sign$p.value < umbral_alfa, ]
data.frame(
  `Nombre de especie` = rownames(tabla_phi_sign_alfa),
  `P-valor` = tabla_phi_sign_alfa$p.value,
  `Grupo de asociación` = gsub('s\\.', '', names(tabla_phi_sign_alfa)[tabla_phi_sign_alfa$index]),
  check.names = F) %>%
  arrange(`Nombre de especie`) %>% 
  estilo_kable(alinear = 'crr')

TABLA 2.3:

Nombre de especie	P-valor	Grupo de asociación
sp01	0.05	A
sp02	0.03	A

3 Técnicas de ordenación

Me basaré en los scripts que comienzan por to_ de este repo, los cuales explico en los vídeos de “Técnicas de ordenación” de la lista de reproducción “Ecología Numérica con R” de mi canal.

3.1 Ordenación no restringida

3.1.1 PCA aplicado a datos de comunidad transformados

pca_mc_t <- rda(mc_t)
summary(pca_mc_t)

Call:
rda(X = mc_t) 

Partitioning of variance:
              Inertia Proportion
Total           0.427          1
Unconstrained   0.427          1

Eigenvalues, and their contribution to the variance 

Importance of components:
                        PC1   PC2    PC3    PC4    PC5    PC6    PC7    PC8
Eigenvalue            0.109 0.080 0.0733 0.0495 0.0347 0.0278 0.0171 0.0145
Proportion Explained  0.255 0.187 0.1715 0.1158 0.0812 0.0650 0.0401 0.0340
Cumulative Proportion 0.255 0.442 0.6136 0.7294 0.8107 0.8756 0.9157 0.9497
                         PC9   PC10    PC11    PC12
Eigenvalue            0.0087 0.0067 0.00468 0.00140
Proportion Explained  0.0204 0.0157 0.01095 0.00328
Cumulative Proportion 0.9701 0.9858 0.99672 1.00000

Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions
* General scaling constant of scores:  1.56 


Species scores

         PC1      PC2     PC3       PC4      PC5      PC6
sp01 -0.0885  0.14541 -0.2912 -0.066322  0.18074 -0.01826
sp02 -0.1269  0.33174  0.0471 -0.000797 -0.01001  0.19823
sp03 -0.1151  0.11326  0.1778  0.215717  0.22453  0.10284
sp04 -0.3615 -0.19733  0.1339  0.223219 -0.07933 -0.09904
sp05 -0.1204  0.30560 -0.0759  0.181156 -0.13219  0.01822
sp06  0.1507  0.02149 -0.4089  0.021803 -0.04634  0.02777
sp07  0.2965 -0.01943  0.0943  0.069841 -0.20606  0.18408
sp08  0.1890 -0.10348  0.0559  0.048648  0.20884  0.07725
sp09 -0.3430 -0.19492  0.0173 -0.223533 -0.00585  0.19351
sp10  0.2498 -0.16082 -0.0939  0.258324  0.05233  0.04194
sp11  0.3259 -0.00318  0.2304 -0.143391  0.02717 -0.00976
sp12  0.0917  0.32595  0.1890 -0.068717  0.00709 -0.13641


Site scores (weighted sums of species scores)

          PC1     PC2     PC3      PC4     PC5     PC6
sit1  -0.3688 -0.0260 -0.3748  0.44890  0.2984  0.2976
sit2  -0.0521  0.2025  0.6715 -0.57360  0.5677  0.2533
sit3  -0.1459 -0.2625 -0.2395  0.31792  0.1744  0.6456
sit4  -0.1332  0.8877 -0.6024 -0.21965 -0.3619 -0.5884
sit5   0.1105 -0.1170  0.3353  0.29811  0.8214 -0.9390
sit6   0.0965  0.3814 -0.1127 -0.05315 -0.2149  0.3581
sit7   0.0472 -0.5013 -0.7952 -0.26417  0.5166  0.0665
sit8   0.7876 -0.1619  0.0382 -0.05683 -0.2720 -0.3654
sit9  -0.0226  0.0585  0.5581  0.30004 -0.2227  0.2958
sit10 -0.0077  0.2438  0.4184  0.83184 -0.2444  0.0210
sit11 -0.8653 -0.8215  0.2281 -0.32640 -0.6635 -0.4200
sit12  0.1428  0.1820  0.2821 -0.83833  0.0237  0.3220
sit13  0.8032 -0.4750 -0.1571  0.07731 -0.2795  0.0638
sit14  0.0612  0.0810 -0.1001 -0.00606 -0.3658  0.0658
sit15 -0.4534  0.3283 -0.1500  0.06407  0.2225 -0.0765

screeplot(
  pca_mc_t,
  bstick = TRUE,
  npcs = length(pca_mc_t$CA$eig)
)

# Biplot
cleanplot.pca(pca_mc_t, scaling = 1, mar.percent = 0.06, cex.char1 = 0.7)

3.1.2 Análisis de correspondencia (CA)

# Realizar el CA
mc_ca <- cca(mc)

Resumen de análisis de correspondencia.

summary(mc_ca)

Call:
cca(X = mc) 

Partitioning of scaled Chi-square:
              Inertia Proportion
Total           0.646          1
Unconstrained   0.646          1

Eigenvalues, and their contribution to the scaled Chi-square 

Importance of components:
                        CA1   CA2   CA3    CA4    CA5    CA6    CA7    CA8
Eigenvalue            0.175 0.123 0.113 0.0753 0.0552 0.0370 0.0242 0.0195
Proportion Explained  0.271 0.191 0.175 0.1166 0.0854 0.0572 0.0374 0.0301
Cumulative Proportion 0.271 0.462 0.637 0.7539 0.8393 0.8966 0.9340 0.9641
                         CA9    CA10    CA11
Eigenvalue            0.0121 0.00848 0.00256
Proportion Explained  0.0188 0.01312 0.00396
Cumulative Proportion 0.9829 0.99604 1.00000

Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions


Species scores

        CA1    CA2     CA3     CA4      CA5      CA6
sp01 -0.187  0.441 -0.3373 -0.2781  0.24009 -0.18635
sp02 -0.224  0.318  0.3217 -0.1005 -0.10975  0.24837
sp03 -0.297 -0.123  0.3721  0.2243  0.47779  0.29030
sp04 -0.777 -0.583 -0.0761  0.3324 -0.12876 -0.32080
sp05 -0.360  0.618  0.2376  0.3877 -0.25504 -0.04046
sp06  0.237  0.432 -0.6242  0.0393 -0.06769  0.01443
sp07  0.600 -0.192  0.0614  0.1958 -0.46177  0.16515
sp08  0.230 -0.208 -0.0886 -0.0338  0.22172  0.06370
sp09 -0.506 -0.346 -0.2303 -0.5010 -0.20535  0.16716
sp10  0.349 -0.172 -0.3364  0.3630  0.14202  0.00475
sp11  0.696 -0.315  0.3170 -0.2988  0.00814 -0.17050
sp12  0.135  0.201  0.5109 -0.1404  0.01406 -0.28498


Site scores (weighted averages of species scores)

          CA1    CA2     CA3     CA4    CA5      CA6
sit1  -0.9726  0.340 -0.7490  0.6392  0.634  0.72427
sit2   0.0313 -0.639  1.7743 -1.8815  1.228  1.41518
sit3  -0.3645 -0.389 -0.9222  0.3561  0.218  1.34195
sit4  -0.4547  3.257  0.1921 -0.2442 -0.646 -1.34641
sit5   0.1208 -0.878  0.4572  0.3198  2.524 -2.33248
sit6   0.2523  0.699  0.2587 -0.1443 -0.394  0.56200
sit7   0.1400  0.240 -2.8621 -1.0904  1.199  0.34437
sit8   2.1351 -0.343 -0.2360  0.2770 -0.433 -0.93485
sit9  -0.0883 -0.650  0.9641  0.5693 -0.538  0.33169
sit10 -0.2452 -0.142  1.1092  2.0390 -0.226  0.42589
sit11 -3.6594 -3.762 -1.3557 -1.1195 -3.027 -2.07705
sit12  0.6053 -0.117  0.7015 -2.1942 -0.758  0.00986
sit13  2.4083 -0.737 -1.1875  0.7052 -0.571  0.41920
sit14  0.0997  0.143 -0.1967 -0.0414 -0.992 -0.83457
sit15 -1.1080  0.676  0.0843 -0.1034  0.377 -0.14612

Gráfico de sedimentación o screeplot.

# Screeplot
screeplot(mc_ca, bstick = TRUE, npcs = length(mc_ca$CA$eig))

Representación del biplot.

# Biplot
plot(mc_ca,
     scaling = 1,
     main = "Análisis de correspondencia, escalamiento 1"
)

3.2 Ordenación restringida con modelización

A continuación, el análisis de ordenación propiamente. La parte más importante es el entrenamiento: la función train del paquete caret, contenida en la función my_train, simplifica la selección de variables. Lo más importante: prueba con todas las variables primero, observa las variables que recomienda el modelo final (print_my_train(mod)) y ensaya varias combinaciones de subconjuntos de variables.

mc_t_ren <- mc_t %>%
  rename_all(~ paste('ESPECIE', .x))
env_spp <- env %>% bind_cols(mc_t_ren)
spp <- paste0('`', grep('^ESPECIE', colnames(env_spp), value = T), '`', collapse = ' + ')
my_formula <- as.formula(paste(spp, '~ .'))
set.seed(1); mod <- my_train(
  formula = my_formula, 
  # preproceso = 'scale',
  data = env_spp,
  num_variables = 3:4)
print_my_train(mod)

$resumen_variables
Subset selection object
4 Variables  (and intercept)
     Forced in Forced out
var1     FALSE      FALSE
var2     FALSE      FALSE
var3     FALSE      FALSE
var4     FALSE      FALSE
1 subsets of each size up to 4
Selection Algorithm: 'sequential replacement'
         var1 var2 var3 var4
1  ( 1 ) " "  "*"  " "  " " 
2  ( 1 ) "*"  "*"  " "  " " 
3  ( 1 ) " "  "*"  "*"  "*" 
4  ( 1 ) "*"  "*"  "*"  "*" 

$resultados_nvmax
  nvmax  RMSE Rsquared   MAE RMSESD RsquaredSD MAESD
1     3 0.685   0.2398 0.627 0.1649     0.1907 0.192
2     4 0.664   0.0854 0.598 0.0599     0.0924 0.114

$mejor_ajuste
  nvmax
2     4

(covar <- grep(
  pattern = '\\(Intercept\\)',
  x = names(coef(mod$finalModel,unlist(mod$bestTune))),
  invert = T, value = T))

[1] "var1" "var2" "var3" "var4"

rda_mc_t <- rda(mc_t_ren %>% rename_all(~ gsub('^ESPECIE ', '', .)) ~ .,
                    env %>% select_at(all_of(gsub('\\`', '', covar))), scale = T)

A continuación, el resumen del análisis de redundancia.

summary(rda_mc_t)

Call:
rda(formula = mc_t_ren %>% rename_all(~gsub("^ESPECIE ", "",      .)) ~ var1 + var2 + var3 + var4, data = env %>% select_at(all_of(gsub("\\`",      "", covar))), scale = T) 

Partitioning of correlations:
              Inertia Proportion
Total           12.00      1.000
Constrained      3.33      0.278
Unconstrained    8.67      0.722

Eigenvalues, and their contribution to the correlations 

Importance of components:
                       RDA1   RDA2  RDA3   RDA4   PC1   PC2   PC3    PC4    PC5
Eigenvalue            1.354 1.0383 0.636 0.3035 2.679 1.830 1.561 1.0573 0.6415
Proportion Explained  0.113 0.0865 0.053 0.0253 0.223 0.153 0.130 0.0881 0.0535
Cumulative Proportion 0.113 0.1994 0.252 0.2777 0.501 0.653 0.783 0.8716 0.9251
                         PC6    PC7    PC8     PC9    PC10
Eigenvalue            0.3873 0.2656 0.1472 0.07007 0.02909
Proportion Explained  0.0323 0.0221 0.0123 0.00584 0.00242
Cumulative Proportion 0.9573 0.9795 0.9917 0.99758 1.00000

Accumulated constrained eigenvalues
Importance of components:
                       RDA1  RDA2  RDA3   RDA4
Eigenvalue            1.354 1.038 0.636 0.3035
Proportion Explained  0.406 0.312 0.191 0.0911
Cumulative Proportion 0.406 0.718 0.909 1.0000

Scaling 2 for species and site scores
* Species are scaled proportional to eigenvalues
* Sites are unscaled: weighted dispersion equal on all dimensions
* General scaling constant of scores:  3.6 


Species scores

        RDA1    RDA2    RDA3     RDA4    PC1     PC2
sp01 -0.3137  0.6013  0.3511  0.17207  0.209  0.2254
sp02 -0.6144 -0.2300  0.1316  0.00775  0.264 -0.3396
sp03 -0.5648  0.2010 -0.2026  0.05862  0.122 -0.4615
sp04  0.0972 -0.0635 -0.3832  0.43350  0.566  0.0261
sp05 -0.5887 -0.4857  0.0356 -0.03367  0.249  0.2159
sp06 -0.1550  0.0698  0.3168  0.00827 -0.290  0.8409
sp07  0.3243 -0.1969  0.1436 -0.10584 -0.672 -0.0727
sp08 -0.2638  0.3906 -0.2792 -0.25210 -0.591 -0.1077
sp09  0.1388  0.0411  0.3778  0.15146  0.680 -0.1204
sp10  0.0480  0.2886 -0.0705 -0.06064 -0.649  0.4287
sp11  0.1946 -0.1907  0.1021 -0.02840 -0.744 -0.4982
sp12 -0.2313 -0.3303  0.0231  0.05872 -0.245 -0.6164


Site scores (weighted sums of species scores)

         RDA1   RDA2    RDA3   RDA4     PC1     PC2
row1  -1.2329  0.912 -0.2064  1.246  0.6224  0.9995
row2  -0.5556 -0.579 -0.6045 -1.107 -0.0369 -1.8369
row3  -0.0939  1.402  0.0686  0.863  0.0413  0.2688
row4  -1.5590 -1.361  2.1802  0.846  0.7680  0.8945
row5   0.0957  1.316 -2.1588  1.006 -0.5177 -0.9309
row6  -0.5080 -0.853  2.0288  0.388 -0.0856 -0.3112
row7   0.6726  2.647  1.2461 -1.040  0.2456  1.3272
row8   1.4463 -0.255 -0.2499 -3.516 -1.8683  0.2349
row9  -0.2390 -1.243 -1.1859 -0.148  0.0214 -0.6922
row10 -0.8619 -1.088 -2.4176 -0.693  0.0394 -0.3219
row11  2.1807 -0.513 -0.7589  5.110  2.1494  0.1897
row12  0.4338 -0.224  1.4443 -1.049  0.0564 -1.6318
row13  1.8160  0.489 -0.2816 -4.225 -1.4697  1.1515
row14 -0.0119 -0.553  0.8531  0.406 -0.8103  0.5655
row15 -1.5828 -0.098  0.0425  1.912  0.8445  0.0933


Site constraints (linear combinations of constraining variables)

         RDA1    RDA2    RDA3    RDA4     PC1     PC2
row1  -1.9040  0.0832  0.6042 -0.4980  0.6224  0.9995
row2  -0.8857 -0.3688 -0.4843  0.0655 -0.0369 -1.8369
row3   0.3283  1.5522 -0.0789  1.3777  0.0413  0.2688
row4  -0.1547 -0.8035 -0.3328 -0.1271  0.7680  0.8945
row5   0.1528  1.5861 -1.2571  0.8633 -0.5177 -0.9309
row6   0.1848 -0.1414  2.0783  0.0697 -0.0856 -0.3112
row7   0.2856  1.7390  0.4426 -0.9751  0.2456  1.3272
row8   0.6645 -0.7562  0.9919  0.2146 -1.8683  0.2349
row9   0.0906 -1.2605 -0.2652 -0.7819  0.0214 -0.6922
row10 -0.3225 -0.1906 -1.5678 -0.8265  0.0394 -0.3219
row11  2.0803 -0.8024 -0.2254  0.6884  2.1494  0.1897
row12  0.5990  0.6422  1.1656 -1.0313  0.0564 -1.6318
row13  0.8657 -0.3182 -1.1078 -1.2316 -1.4697  1.1515
row14 -0.5909 -0.9207  0.0219  2.1676 -0.8103  0.5655
row15 -1.3937 -0.0404  0.0148  0.0245  0.8445  0.0933


Biplot scores for constraining variables

      RDA1   RDA2   RDA3    RDA4 PC1 PC2
var1 0.595  0.262  0.150  0.7449   0   0
var2 0.631 -0.440 -0.483 -0.4172   0   0
var3 0.203  0.878 -0.430 -0.0554   0   0
var4 0.721  0.214  0.560 -0.3465   0   0

La varianza ajustada explicada por el modelo.

RsquareAdj(rda_mc_t)$adj.r.squared

[1] -0.0112

Y el factor de inflación de la varianza.

vif.cca(rda_mc_t)

var1 var2 var3 var4 
1.22 1.11 1.07 1.21 

Represento el gráfico triplot.

# Triplot
escalado <- 1
plot(rda_mc_t,
     scaling = escalado,
     display = c("sp", "lc", "cn"),
     main = paste("Triplot de RDA especies ~ variables, escalamiento", escalado)
)

rda_mc_t_sc1 <- scores(rda_mc_t,
         choices = 1:2,
         scaling = escalado,
         display = "sp"
  )
# text(mi_fam_t_rda, "species", col="red", cex=0.8, scaling=escalado)
arrows(0, 0,
       rda_mc_t_sc1[, 1] * 0.9,
       rda_mc_t_sc1[, 2] * 0.9,
       length = 0,
       lty = 1,
       col = "red"
)

4 Análisis de diversidad + análisis de agrupamiento abreviado

Me basaré en los scripts que comienzan por di_ de este repo, los cuales explico en los vídeos de “Análisis de diversidad” (vídeos 19 y 20) de la lista de reproducción “Ecología Numérica con R” de mi canal. Dichos vídeos tienen aplicaciones ligeramente diferentes, pues los datos fuente usados en ellos son de abundancia, mientras que los tuyos son de presencia/ausencia.

4.1 Calcular riqueza (e índices)

La principal desventaja de trabajar con registros de presencia, es que la mayoría de los índices de diversidad alpha fueron diseñados originalmente para calcularse a partir de datos de abundancia. Sin embargo, la riqueza de especies, que es el número \(q=0\) de Hill (\(=N_0\) en las columnas que produce la función alpha_div) es un buen proxy sobre la diversidad, y nos ayudará a comparar sitios.

Además de la columna N0 del objeto que generaré en el bloque siguiente, verás que la función alpha_div genera otras columnas; son índices pensados para datos de abundancia, que en este caso no usaremos, pero los muestro para que tengas una visión completa del análisis de diversidad con índices que podría serte de utilidad en el futuro.

Por otra parte, afortunadamente, los métodos de estimación de riqueza de Chao, y los de diversidad beta (al final de esta sección), aprovechan sustancialmente los registros de presencia/ausencia para realizar estimaciones consistentes y fiables.

Una nota adicional. En el análisis de diversidad, es útil (no imprescindible) disponer de un análisis clúster (agrupamiento) básico. Este te servirá para comparar la riqueza observada y la esperada entre hábitats. Por esta razón, combinamos análisis de diversidad con agrupamiento. Sin embargo, si el análisis de agrupamiento generó grupos de dos o menos elementos, dicha comparación no será realizable.

indices <- alpha_div(mc) %>% 
  mutate(sitio = rownames(.)) %>% 
  relocate(sitio, .before = everything())

El objeto mc es la matriz de comunidad de presecia/ausencia. La función alpha_div es un “envoltorio” generado por mí para calcular múltiples índices de diversidad y estimaciones, basada en las funciones de los paquetes SpadeR y iNEXT. Si usásemos datos de abundancia, los índices que calcula la función “alpha_div” serían útiles, pero con registros de presencia/ausencia, como es nuestro caso, sólo la columna N0 (riqueza) nos aportará algún resultado con sentido.

indices %>% 
  kable(booktabs=T) %>%
  kable_styling(latex_options = c("HOLD_position", "scale_down")) %>%
  gsub(' NA |NaN ', '', .) #Lista de especies

sitio	N0	H	Hb2	N1	N1b2	N2	J	E10	E20
1	9	2.197	3.17	9	9	9	1	1	1
2	6	1.792	2.58	6	6	6	1	1	1
3	9	2.197	3.17	9	9	9	1	1	1
4	5	1.609	2.32	5	5	5	1	1	1
5	7	1.946	2.81	7	7	7	1	1	1
6	10	2.303	3.32	10	10	10	1	1	1
7	5	1.609	2.32	5	5	5	1	1	1
8	6	1.792	2.58	6	6	6	1	1	1
9	10	2.303	3.32	10	10	10	1	1	1
10	8	2.079	3.00	8	8	8	1	1	1
11	2	0.693	1.00	2	2	2	1	1	1
12	7	1.946	2.81	7	7	7	1	1	1
13	5	1.609	2.32	5	5	5	1	1	1
14	11	2.398	3.46	11	11	11	1	1	1
15	9	2.197	3.17	9	9	9	1	1	1

Los sitios ordenados en función de su riqueza:

indices %>%
  arrange(desc(N0)) %>% 
  kable(booktabs=T) %>%
  kable_styling(latex_options = c("HOLD_position", "scale_down")) %>%
  gsub(' NA |NaN ', '', .) #Lista de especies

sitio	N0	H	Hb2	N1	N1b2	N2	J	E10	E20
14	11	2.398	3.46	11	11	11	1	1	1
6	10	2.303	3.32	10	10	10	1	1	1
9	10	2.303	3.32	10	10	10	1	1	1
1	9	2.197	3.17	9	9	9	1	1	1
3	9	2.197	3.17	9	9	9	1	1	1
15	9	2.197	3.17	9	9	9	1	1	1
10	8	2.079	3.00	8	8	8	1	1	1
5	7	1.946	2.81	7	7	7	1	1	1
12	7	1.946	2.81	7	7	7	1	1	1
2	6	1.792	2.58	6	6	6	1	1	1
8	6	1.792	2.58	6	6	6	1	1	1
4	5	1.609	2.32	5	5	5	1	1	1
7	5	1.609	2.32	5	5	5	1	1	1
13	5	1.609	2.32	5	5	5	1	1	1
11	2	0.693	1.00	2	2	2	1	1	1

4.2 Evaluar correlación entre riqueza y variables ambientales mediante matriz de correlación.

En el bloque siguiente, represento gráficamente la correlación entre la riqueza y las variables ambientales mediante un panel de gráficos, que suele llamarse también “matriz de correlación”, expresada gráficamente. Si usases índices de diversidad, como el de Shannon o los números de Hill, también deberías incluirlos en el gráfico; nota que en este ejemplo, sólo uso la riqueza (la función select(N0) se encarga de conservar sólo la riqueza). Esto es lo que debes saber sobre el panel:

• Presta atención a la primera columna y la primera fila de la matriz, que muestra cómo se correlaciona N0 con las variables ambientales que elijas.

• La diagonal contiene gráficos de línea que muestra la densidad de la variable en cuestión.

• Los gráficos del “triángulo superior”, y que contienen el patrón Corr: ####, muestran el valor del coeficiente de correlación de Pearson (\(r\)) entre las variables intersectadas. Si existe un \(|r|\) elevado (es decir, si es muy cercano a -1 o a 1) y la prueba de producto-momento es significativa (si hay uno o varios asteriscos, o un punto, lo es), entonces toma nota de que dicha variable se asocia estadísticamente con la riqueza. Si \(r\) es negativo, la relación es inversa (cuando aumenta la variable, disminuye la riqueza, y viceversa); si es positivo, la relación es directa (cuando aumenta la variable, aumenta también la riqueza).

• En el “triángulo inferior”, que es un espejo del superior, se sitúan los gráficos de dispersión de las variables intersectadas. Si los puntos siguen un patrón de distribución formando una elipse imaginaria (organizados en torno a una línea recta imaginaria inclinada), entonces existe correlación.

bind_cols(indices %>% select(N0), env %>%
            rename_with(.fn = ~ paste0('AMB_', .))) %>%
  ggpairs(
    labeller = label_wrap_gen(width=10),
    upper = list(continuous = wrap("cor", size = 3))) +
  theme(text = element_text(size = 10))

4.3 “Completitud de muestra” y curva de acumulación

“Completitud”, en porcentajes, según distintos estimadores. Con un 80% de completitud, se considera en general una muestra representativa. Sin embargo, este umbral de 80% no debe tomarse de forma estricta. Sobre todo porque existen métodos refinados que mejoran las estimaciones

riqueza_estimaciones <- data.frame(specpool(mc) %>% select(-matches('.se$'))) %>% 
  select(`Riqueza observada` = Species,
         `Número de sitios` = n,
         `Estimación por Chao (clásico)` = chao,
         `Estimación por jackknife de primer orden` = jack1,
         `Estimación por jackknife de segundo orden` = jack2,
         `Estimación por bootstrap` = boot) %>% 
  pivot_longer(cols = everything(), names_to = 'Variable', values_to = 'Valor') %>%
  mutate(`Cobertura (%)` = Valor / (filter(., Variable == "Riqueza observada") %>% pull(Valor)) * 100) %>% 
  mutate(`Cobertura (%)` = ifelse(Variable %in% c('Riqueza observada', 'Número de sitios'), NA, `Cobertura (%)`))
riqueza_estimaciones %>% estilo_kable(alinear = 'lrr')

TABLA 4.1:

Variable	Valor	Cobertura (%)
Riqueza observada	12
Número de sitios	15
Estimación por Chao (clásico)	12	100
Estimación por jackknife de primer orden	12	100
Estimación por jackknife de segundo orden	12	100
Estimación por bootstrap	12	100

# Bug no resuelto:
# Error in if (var_mle > 0) { : valor ausente donde TRUE/FALSE es necesario
# Varios intentos frustrados por lograr que funcione. Entiendo que el problema
# está en el número de doubletons (la matriz no tiene), pero no logré mejorar
# la función interna SpecInciHomo para solucionarlo. La versión de SpadeR usada
# en la aplicación Shiny https://chao.shinyapps.io/SpadeR/, no es la misma que 
# la que se encuentra en GitHub ni en el CRAN, pues esa no tiene bug.
df_spader <- data.frame(V1 = as.integer(c(nrow(mc), colSums(mc))))
# También se puede crear con esta línea:
# df_spader <- structure(
#   list(V1 = c(15, 8, 9, 10, 9, 8, 9, 9, 8, 8, 6, 12, 9)),
#   class = "data.frame", row.names = c(NA, -13L))
df_spader
#  V1
#  15
#   8
#   9
#  10
#   9
#   8
#   9
#   9
#   8
#   8
#   6
#  12
#   9
ChaoSpecies(df_spader, datatype = 'incidence_freq',
            k = min(df_spader$V1), conf=0.95)
# Error in if (var_mle > 0) { : valor ausente donde TRUE/FALSE es necesario
# ENG: Error in if (var_mle > 0) { : missing value where TRUE/FALSE needed

Graficaré la curva de acumulación de especies.

mc_general <- mc %>%
  summarise_all(sum) %>%
  mutate(N = nrow(mc)) %>%
  relocate(N, .before = 1) %>%
  data.frame
nasin_raref <- iNEXT::iNEXT(
  x = t(mc_general),
  q=0,
  knots = 2000,
  datatype = 'incidence_freq')
acumulacion_especies <- iNEXT::ggiNEXT(nasin_raref, type=1) +
  theme_bw() +
  theme(
    text = element_text(size = 20),
    panel.background = element_rect(fill = 'white', colour = 'black'),
    panel.grid.major = element_line(colour = "grey", linetype = "dashed", size = 0.25)
  ) +
  ylab('Riqueza de especies') +
  xlab('Número de sitios') +
  scale_y_continuous(breaks = seq(0, 80, length.out = 9)) +
  scale_color_manual(values = brewer.pal(8, 'Set2')) +
  scale_fill_manual(values = brewer.pal(8, 'Set2'))
acumulacion_especies

Ahora según los grupos previamente seleccionados en el análisis de agrupamiento.

grupos_seleccionados <- readRDS(paste0(
  fuentes_practica, 'grupos_seleccionados-',
  params$estudiante, '.RDS'))
mc_grupos <- mc %>%
  mutate(g = grupos_seleccionados) %>%
  group_by(g) %>%
  summarise_all(sum) %>%
  select(-g) %>% 
  mutate(N = nrow(mc)) %>% 
  relocate(N, .before = 1) %>% 
  data.frame
nasin_raref_general <- iNEXT::iNEXT(
  x = t(mc_grupos),
  q=0,
  knots = 400,
  datatype = 'incidence_freq')
acumulacion_especies_grupos <- iNEXT::ggiNEXT(nasin_raref_general, type=1) +
  theme_bw() +
  theme(
    text = element_text(size = 20),
    panel.background = element_rect(fill = 'white', colour = 'black'),
    panel.grid.major = element_line(colour = "grey", linetype = "dashed", size = 0.25)
  ) +
  ylab('Riqueza de especies') +
  xlab('Número de sitios') +
  scale_y_continuous(breaks = seq(0, 80, length.out = 9)) +
  scale_color_manual(values = brewer.pal(8, 'Set2')) +
  scale_fill_manual(values = brewer.pal(8, 'Set2'))
acumulacion_especies_grupos

4.4 Contribución de especies a la diversidad beta (SCBD, species contribution to beta diversity) y contribución local a la diversidad beta (LCBD local contribution to beta diversity)

determinar_contrib_local_y_especie(
    mc = mc,
    alpha = 0.05,
    nperm = 9999,
    metodo = 'sorensen')

## $betadiv
## $beta
## SStotal BDtotal 
##   3.114   0.222 
## 
## $SCBD
## [1] NA
## 
## $LCBD
##  [1] 0.0426 0.0726 0.0395 0.1040 0.0648 0.0408 0.0819 0.0744 0.0359 0.0578
## [11] 0.1671 0.0585 0.0936 0.0238 0.0426
## 
## $p.LCBD
##  [1] 0.8655 0.3619 0.9114 0.0717 0.4849 0.8919 0.2283 0.3124 0.9398 0.6148
## [11] 0.0007 0.5809 0.1090 0.9961 0.8576
## 
## $p.adj
##  [1] 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000
## [11] 0.0105 1.0000 1.0000 1.0000 1.0000
## 
## $method
## [1] "sorensen"     "sqrt.D=FALSE"
## 
## $note
## [1] "Info -- D is Euclidean because beta.div outputs D[jk] = sqrt(1-S[jk])"
## [2] "For this D functions, use beta.div with option sqrt.D=FALSE"          
## 
## $D
## [1] NA
## 
## attr(,"class")
## [1] "beta.div"
## 
## $especies_contribuyen_betadiv
## [1] NA
## 
## $sitios_contribuyen_betadiv
## [1] "11"
## 
## $valor_de_ajustado_lcbd
##  [1] 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000
## [11] 0.0105 1.0000 1.0000 1.0000 1.0000
## 
## $sitios_contribuyen_betadiv_ajustado
## [1] "11"

Referencias

Borcard, Daniel, François Gillet, y Pierre Legendre. 2018. Numerical ecology with R. Springer.

Martínez-Batlle, José Ramón. 2020. biogeografia-master/scripts-de-analisis-BCI: Long coding sessions (versión v0.0.0.9000). Zenodo. https://doi.org/10.5281/zenodo.4402362.